home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / libraries / supralib.lha / SupraLib / source / MakeNewImg.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-03-07  |  4.8 KB  |  148 lines
  1. /****** MakeNewImg *************************************************
  2. *
  3. *   NAME
  4. *       MakeNewImg -- Remap an image to any new colours (V10)
  5. *
  6. *   SYNOPSIS
  7. *       newImage = MakeNewImg(oldImage, palette)
  8. *
  9. *       struct Image * = MakeNewImg(struct Image *, ULONG *);
  10. *
  11. *   FUNCTION
  12. *       This function creates a new clone image of a provided
  13. *       image, and it remaps the new image according to a provided
  14. *       pen colour list.
  15. *       This is very useful when you need your image to use
  16. *       specific colours anywhere in the available palette.
  17. *       (e.g. you obtained some free pens from a palette, and
  18. *       you want your image to be shown with those pens).
  19. *       It is possible to modify an image's pens with PlanePick and
  20. *       PlaneOnOff fields (see Image structure), but this has a major
  21. *       limitation: most colour combinations are not possible to get.
  22. *
  23. *       If your image has four colours (0,1,2,3), and you want to
  24. *       remap these to (0,16,4,7), you simply call this function,
  25. *       providing it with the image and a new colour map, and a
  26. *       new image will be created for you.
  27. *
  28. *   INPUTS
  29. *       oldImage - pointer to an Image structure to be remapped
  30. *       palette  - pointer to a list of new pens
  31. *
  32. *       A pens list should contain the exact number of pens as
  33. *       an old image uses. (2 if image's depth is 1, 4 if image's
  34. *       depth is 2, etc.). An image's colour 0 will be remapped to the
  35. *       first pen on the list, image's colour 1 will be remapped to
  36. *       the second pen on the list and so on.
  37. *
  38. *   RESULT
  39. *       newImage - pointer to a newly initialized remapped old image's
  40. *                  clone. If there is not enough memory, newImage will
  41. *                  be NULL.
  42. *       IMPORTANT: If a new image was created you have to call
  43. *       FreeNewImg() to free the allocated memory, when you no longer
  44. *       need to use it!
  45. *
  46. *   EXAMPLE
  47. *
  48. *       We have a depth 2 image (4 colours), and we want to use pens
  49. *       0,16,4,7 instead of 0,1,2,3:
  50. *
  51. *
  52. *       struct Image OldImage = {
  53. *           ....    \* This is a data of our original image *\
  54. *
  55. *       struct Image *NewImage;
  56. *       ULONG pal[] = {0, 16, 4, 7}; \* The new pen list *\
  57. *
  58. *       if (NewImage = MakeNewImg(&OldImage, &pal[0])) {
  59. *          DrawImage(rp, NewImage);
  60. *          FreeNewImg(NewImage);    \* We will no longer use it *\
  61. *       }
  62. *
  63. *   NOTE
  64. *       A new image's depth will change to a depth that can hold
  65. *       the largest pen number from a pens list. It does not have
  66. *       any smart routine to check if the depth can be optimized
  67. *       down, by altering PlanePick and PlaneOnOff, yet.
  68. *       Bear in mind that if you provide a pen 255, then a new image's
  69. *       depth will be at least 8.
  70. *
  71. *       You MUST free a new image with FreeNewImg() when it's no longer
  72. *       needed!
  73. *
  74. *       This function can take much time when remapping larger images
  75. *       with more depths.
  76. *
  77. *   BUGS
  78. *       None found.
  79. *
  80. *   SEE ALSO
  81. *       FreeNewImg()
  82. *
  83. **********************************************************************/
  84.  
  85. #include<clib/exec_protos.h>
  86. #include<exec/exec.h>
  87. #include<intuition/intuition.h>
  88. #include<stdio.h>
  89.  
  90. char __asm mkImg(register __a1 UWORD *,
  91.                     register __a2 UWORD *,
  92.                     register __a3 ULONG *,
  93.                     register __d4 LONG,
  94.                     register __d5 LONG,
  95.                     register __d6 LONG);
  96.  
  97. struct Image *MakeNewImg(struct Image *img, ULONG *pal)
  98. {
  99. struct Image *newimg;
  100. UWORD i, num, max=0, dep;
  101. WORD wid;
  102. LONG mask=0;
  103.  
  104.     if (newimg = AllocMem(sizeof(struct Image), 0)) {
  105.         dep = img->Depth;
  106.         num = 1<<dep;
  107.  
  108.         /* Get the maximum palette color entry */
  109.         for (i=0; i<num; i++) if (pal[i] > max) max = pal[i];
  110.  
  111.         /* Get a destination depth */
  112.         while (max>>dep > 0) dep++;
  113.  
  114.         /* Width must be word aligned */
  115.         i=0;
  116.         wid = img->Width;
  117.         while(i < wid) i+=16;
  118.         wid = i; /* NOTE: Width=0 is not considered yet */
  119.  
  120.         /* Alloc Planes */
  121.         if (newimg->ImageData = AllocMem(img->Height*wid*dep/8, MEMF_CHIP | MEMF_CLEAR)) {
  122.             /* Fill newimg fields */
  123.  
  124.             newimg->Depth = dep;
  125.             newimg->Height = img->Height;
  126.             newimg->Width = img->Width;
  127.             newimg->LeftEdge = img->LeftEdge;
  128.             newimg->TopEdge = img->TopEdge;
  129.             for (i=0; i<dep; i++) mask |= 1<<i;
  130.             newimg->PlanePick = mask;
  131.             newimg->PlaneOnOff = 0;
  132.             newimg->NextImage = NULL;
  133.  
  134.             mkImg(img->ImageData, newimg->ImageData, pal,
  135.                      img->Height*wid/8, img->Depth, dep);
  136.  
  137.         }
  138.     }
  139.  
  140.     if (newimg) {
  141.         if (newimg->ImageData) return(newimg);
  142.         else {
  143.             FreeMem(newimg, sizeof(struct Image));
  144.             return(NULL);
  145.         }
  146.     } else return(NULL);
  147. }
  148.